home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1987 May / 1987-05.d64 / ss converter (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  2KB  |  63 lines
  1. 10 print"[147]  [211]peed[211]cript [198]ile [195]onversion [208]rogram   "
  2. 20 gosub320
  3. 30 input"[201]nput file name";i$
  4. 40 ifi$=""then30
  5. 50 input"[207]utput file name";o$
  6. 60 print"[196][146]isk, [211][146]creen, [208][146]rinter, [207][146]ther"
  7. 70 geta$:ifa$=""then70
  8. 80 dv=-(a$="t")-3*(a$="s")-4*(a$="p")-8*(a$="d"):sa=7
  9. 90 ifdv=0theninput"[196]evice number";dv:input"[211]econdary address";sa
  10. 100 print"[215]hich conversion:"
  11. 110 print"1) [211]peed[211]cript to [195]ommodore [193][211][195][201][201]"
  12. 120 print"2) [211]peed[211]cript to [212]rue [193][211][195][201][201]"
  13. 130 print"3) [195]ommodore [193][211][195][201][201] to [211]peed[211]cript"
  14. 140 getp$:ifp$<"1"orp$>"3"then140
  15. 150 adr=828+val(p$)*3-3
  16. 160 open15,8,15,"i0":rem remove ,"i0" if you've changed the drive's speed
  17. 170 open1,8,3,i$:input#15,en,em$:f$=i$:ifen=0then200
  18. 180 print"[196]isk error for ";f$:printem$
  19. 190 print"run[145][145][145]":close1:close2:close15:end
  20. 200 ifdv<>8thenopen2,dv,sa,o$:goto290
  21. 210 ex$=",s,w":ifp$="3"thenex$=",p,w"
  22. 220 open2,dv,sa,"0:"+o$+ex$:input#15,en,em$:f$=o$
  23. 230 ifen=0then290
  24. 240 ifen<>63then180
  25. 250 print"";o$;" exists... [210]eplace? [217][146]/[206][146]:"
  26. 260 geta$:ifa$<>"y"anda$<>"n"then260
  27. 270 ifa$="n"then190
  28. 280 print#15,"s0:"+o$:close2:goto220
  29. 290 sys(adr):if(peek(144)and191)=0thenprint"[196]one.":goto190
  30. 300 print"[201]/[207] [197]rror during conversion.":input#15,en,em$:ifen<>0then180
  31. 310 goto190
  32. 320 fori=828to1001:reada:pokei,a:ck=ck+a:next:ifck=21584thenreturn
  33. 330 print"error in data statements.":end
  34. 340 data 076,069,003,076,122,003
  35. 350 data 076,174,003,032,225,255
  36. 360 data 240,018,032,216,003,032
  37. 370 data 095,003,032,183,255,072
  38. 380 data 032,224,003,104,041,064
  39. 390 data 240,233,076,204,255,133
  40. 400 data 251,041,064,010,005,251
  41. 410 data 041,191,133,251,041,032
  42. 420 data 073,032,010,005,251,201
  43. 430 data 095,208,002,169,013,133
  44. 440 data 251,096,032,225,255,240
  45. 450 data 221,032,216,003,032,095
  46. 460 data 003,041,127,201,065,144
  47. 470 data 018,201,091,176,014,170
  48. 480 data 165,251,041,128,073,128
  49. 490 data 074,074,133,251,138,005
  50. 500 data 251,133,251,032,183,255
  51. 510 data 072,032,224,003,104,041
  52. 520 data 064,240,207,076,204,255
  53. 530 data 032,225,255,240,169,032
  54. 540 data 216,003,201,013,208,002
  55. 550 data 169,031,072,041,128,074
  56. 560 data 133,251,104,041,063,005
  57. 570 data 251,133,251,032,183,255
  58. 580 data 072,032,224,003,104,041
  59. 590 data 064,240,217,076,204,255
  60. 600 data 162,001,032,198,255,076
  61. 610 data 207,255,162,002,032,201
  62. 620 data 255,165,251,076,210,255
  63.